﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Btn_Add_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_add.Click
        lbl_answer.Text = workSum(tb_num1.Text, tb_num2.Text)
    End Sub

    Private Function workSum(ByVal num1Str As String, ByVal num2Str As String) As String
        Dim num1, num2 As Single
        num1 = CSng(num1Str)
        num2 = CSng(num2Str)
        Dim answer As Single
        answer = num1 + num2
        Return CStr(answer)
    End Function

End Class